home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / comm / tlxhints.zip / EGA50.SCR < prev    next >
Text File  |  1989-03-15  |  739b  |  44 lines
  1. N EGA50.COM
  2. A 100
  3. CLD
  4. MOV    BH,03
  5. MOV    AX,1130        ; 8x8 font pointer
  6. INT    10
  7. PUSH    ES
  8. POP    DS
  9. MOV    SI,BP
  10. PUSH    CS        ; DS:SI points to font
  11. POP    ES
  12. MOV    DI,0150
  13. MOV    BX,0100        ; ES:DI to destination
  14. MOV    CX,0007        ; Number of characters
  15. REPZ            ; Move them
  16. MOVSB
  17. INC    SI        ; Skip over kast byte
  18. DEC    BX
  19. JNZ    0114            ; Next character
  20. MOV    BP,0150        ; Points to font
  21. MOV    DX,0000        ; Starting char
  22. MOV    CX,0100        ; Number of chars
  23. MOV    BH,07        ; Bytes per char
  24. MOV     BL,00           ; Block to load
  25. MOV    AX,1110        ; Load user font
  26. INT    10
  27. SUB    AX,AX
  28. MOV    DS,AX
  29. PUSH    [0487]        ; Fix up cursor
  30. OR    BYE PTR [0487],01
  31. MOV    CX,0600
  32. MOV    AH,01
  33. INT    10
  34. POP    [0487]
  35. MOV    DX,03B4        ; Fix up underline
  36. MOV    AX,0614
  37. OUT    DX,AX
  38. INT    20
  39.  
  40. RCX
  41. 50
  42. W
  43. Q
  44.